home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '90 / Other Stuff / Demos ƒ / Demo AppMaker / Demo AppMaker™ / Demo AppMaker™.rsrc / TmPT_1009_Picture < prev    next >
Encoding:
Text File  |  1990-03-23  |  548 b   |  35 lines
  1. %case uses%
  2. %case instance%
  3.     %itemname%:%    %CPicture;
  4. %case create%
  5.     
  6.     New (%itemname%);
  7.     %itemname%.IViewRes ('PctP', %paneID%, enclosure, supervisor);
  8. %case itemNr%
  9.     %DefineItem%
  10. %case dialog field%
  11.     %if enabled%
  12.         %fieldname%:%    %Handle;
  13.     %end if%
  14. %case init field%
  15.     %if enabled%
  16.         %fieldname% := nil;
  17.     %end if%
  18. %case auxiliary%
  19.     %if enabled%
  20.         {----------}
  21.         Procedure Do%itemname%;
  22.         Begin
  23.         End; {Do%itemname%}
  24.         
  25.     %end if%
  26. %case filter%
  27. %case set%
  28. %case hit%
  29.     %if enabled%
  30.         %itemname%: begin
  31.                 Do%itemname%;
  32.             end;
  33.     %end if%
  34. %case finish%
  35.